home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / gt700.arc / SCRIPT.SCR < prev   
Text File  |  1986-06-02  |  1KB  |  55 lines
  1. writeln "Copyright (c) 1986: by P & M Software Co."
  2. writeln
  3. set 1200,n,8,1
  4. when "More" then "N"
  5. beep
  6. writeln "Script to call the PC Interconnection."
  7. name "PC Interconnection"
  8. writeln "Dialing the phone number.  713 is area code."
  9. dial "955-8120" redial
  10.   writeln "Telling the host how fast we are."
  11.   autobaud
  12.   writeln "Waiting for login:"
  13.   wait for "name:"
  14.   writeln
  15.   writeln "Enter you name on 1 line, example: Johnny Jones"
  16.   write "What name should I give? "
  17.   readln v1
  18.   sendln %1
  19.   sendln "y"
  20.   wait for "word:"
  21.   write "What password should I use? "
  22.   readln v2
  23.   sendln %2
  24.   capture
  25.     writeln "Wait for Main Menu"
  26.     wait for "help:"
  27.     sendln "?"
  28.     online
  29.   capture sample.dat
  30. end
  31. hang-up
  32. flush
  33. writeln "End of script for the PC Interconnection."
  34. beep
  35. writeln "Script to call the Programmer's Workshop."
  36. name "the Programmer's Workshop"
  37. writeln "Dialing the phone number.  713 is area code."
  38. dial "772-2090" redial
  39.   writeln "Telling the host how fast we are."
  40.   autobaud
  41.   writeln "Waiting for login:"
  42.   wait for "name:"
  43.   writeln "Signing in"
  44.   sendln "Paul Meiners"
  45.   sendln "y"
  46.   wait for "word:"
  47.   sendln "humpty-dumpty"
  48.   writeln "Wait for Main Menu"
  49.   wait for "help:"
  50.   sendln "?"
  51.   online
  52. end
  53. flush
  54. writeln "End of script for the Programmer's Workshop"
  55.